/ Merciful 1 / Merciful - Disc 1.iso / software / m / math_vision / mathvisionv2.1b.dms / in.adf / HookExamples / Parametric / Chaos / Wanderer.f

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 4f 52 4d 00 00 04 26 | 49 4c 42 4d 43 48 52 53 |FORM...&|ILBMCHRS|
|00000010| 00 00 04 1a 58 6d 69 6e | 20 2d 34 32 2e 39 39 33 |....Xmin| -42.993|
|00000020| 37 33 0a 58 6d 61 78 20 | 34 30 2e 39 35 36 31 31 |73.Xmax |40.95611|
|00000030| 0a 59 6d 69 6e 20 2d 33 | 30 2e 34 30 32 30 31 0a |.Ymin -3|0.40201.|
|00000040| 59 6d 61 78 20 32 37 2e | 38 38 39 34 35 0a 43 6f |Ymax 27.|88945.Co|
|00000050| 6e 74 6f 75 72 41 6e 63 | 68 6f 72 20 2d 32 2e 30 |ntourAnc|hor -2.0|
|00000060| 30 30 30 30 30 0a 43 6f | 6e 74 6f 75 72 57 69 64 |00000.Co|ntourWid|
|00000070| 74 68 20 30 2e 30 36 32 | 35 30 30 30 30 0a 43 6c |th 0.062|50000.Cl|
|00000080| 69 70 48 69 67 68 20 2d | 32 2e 30 30 30 30 30 30 |ipHigh -|2.000000|
|00000090| 0a 43 6c 69 70 4c 6f 77 | 20 2d 32 2e 30 30 30 30 |.ClipLow| -2.0000|
|000000a0| 30 30 0a 46 30 20 30 3d | 63 61 73 65 28 63 6f 75 |00.F0 0=|case(cou|
|000000b0| 6e 74 3d 30 2c 66 61 2c | 20 63 6f 75 6e 74 3c 35 |nt=0,fa,| count<5|
|000000c0| 30 30 30 2c 66 62 2c 20 | 31 20 29 20 20 20 20 20 |000,fb, |1 )     |
|000000d0| 20 20 20 20 22 43 6f 6e | 74 72 6f 6c 20 69 74 65 |    "Con|trol ite|
|000000e0| 72 61 74 69 6f 6e 0a 46 | 41 20 6e 75 6c 6c 28 66 |ration.F|A null(f|
|000000f0| 62 2c 20 73 65 74 28 78 | 2c 31 2e 39 35 29 2c 20 |b, set(x|,1.95), |
|00000100| 73 65 74 28 79 2c 31 30 | 2e 31 29 2c 20 73 65 74 |set(y,10|.1), set|
|00000110| 28 68 2c 2e 33 29 2c 73 | 65 74 28 6b 2c 2e 39 29 |(h,.3),s|et(k,.9)|
|00000120| 29 20 22 49 6e 69 74 69 | 61 6c 20 76 61 6c 75 65 |) "Initi|al value|
|00000130| 73 0a 46 42 20 6e 75 6c | 6c 28 66 63 28 78 2d 68 |s.FB nul|l(fc(x-h|
|00000140| 2a 66 64 28 79 29 2c 20 | 79 2b 68 2a 66 64 28 78 |*fd(y), |y+h*fd(x|
|00000150| 29 29 2c 66 69 28 78 2c | 79 29 20 29 20 20 20 20 |)),fi(x,|y) )    |
|00000160| 20 22 43 6f 6d 70 75 74 | 65 20 6e 65 77 20 76 61 | "Comput|e new va|
|00000170| 6c 75 65 73 0a 46 43 20 | 6e 75 6c 6c 28 20 73 65 |lues.FC |null( se|
|00000180| 74 28 78 2c 61 31 29 2c | 20 73 65 74 28 79 2c 61 |t(x,a1),| set(y,a|
|00000190| 32 29 20 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |2) )    |        |
|000001a0| 20 20 20 20 20 22 53 65 | 74 20 6e 65 77 20 76 61 |     "Se|t new va|
|000001b0| 6c 75 65 73 0a 46 44 20 | 73 69 6e 28 61 31 2b 73 |lues.FD |sin(a1+s|
|000001c0| 69 6e 28 6b 2a 61 31 29 | 29 0a 46 45 20 0a 46 46 |in(k*a1)|).FE .FF|
|000001d0| 20 0a 46 47 20 0a 46 48 | 20 0a 46 49 20 6e 75 6c | .FG .FH| .FI nul|
|000001e0| 6c 28 20 64 72 61 77 28 | 61 31 2c 61 32 2c 69 66 |l( draw(|a1,a2,if|
|000001f0| 28 63 6f 75 6e 74 2c 28 | 63 6f 75 6e 74 2f 31 30 |(count,(|count/10|
|00000200| 29 25 31 34 2b 31 2c 30 | 29 29 20 29 22 64 69 73 |)%14+1,0|)) )"dis|
|00000210| 70 6c 61 79 0a 43 6f 6d | 6d 65 6e 74 31 20 50 6f |play.Com|ment1 Po|
|00000220| 72 74 72 61 69 74 73 20 | 6f 66 20 45 71 75 61 74 |rtraits |of Equat|
|00000230| 69 6f 6e 73 2c 20 62 79 | 20 49 76 61 72 73 20 50 |ions, by| Ivars P|
|00000240| 65 74 65 72 73 6f 6e 2c | 20 53 63 69 65 6e 63 65 |eterson,| Science|
|00000250| 20 4e 65 77 73 20 76 6f | 6c 2e 20 31 33 32 0a 43 | News vo|l. 132.C|
|00000260| 6f 6d 6d 65 6e 74 32 20 | 43 68 61 6e 67 65 20 74 |omment2 |Change t|
|00000270| 68 65 20 69 6e 69 74 69 | 61 6c 20 73 65 74 74 69 |he initi|al setti|
|00000280| 6e 67 20 6f 66 20 58 2c | 20 59 2c 20 48 2c 20 61 |ng of X,| Y, H, a|
|00000290| 6e 64 20 4b 20 20 20 32 | 39 2d 41 70 72 2d 39 30 |nd K   2|9-Apr-90|
|000002a0| 20 64 6f 75 67 20 68 6f | 75 63 6b 0a 43 6f 6d 6d | doug ho|uck.Comm|
|000002b0| 65 6e 74 33 20 0a 4f 76 | 65 72 70 6c 6f 74 20 46 |ent3 .Ov|erplot F|
|000002c0| 0a 55 73 65 42 61 63 6b | 67 72 6f 75 6e 64 20 46 |.UseBack|ground F|
|000002d0| 0a 4d 6f 64 75 6c 6f 20 | 31 36 0a 43 6f 6d 70 6c |.Modulo |16.Compl|
|000002e0| 65 74 65 20 30 0a 43 6f | 6e 74 6f 75 72 53 61 6d |ete 0.Co|ntourSam|
|000002f0| 70 6c 65 44 65 6c 74 61 | 20 30 0a 43 6f 6e 74 6f |pleDelta| 0.Conto|
|00000300| 75 72 53 63 61 6c 69 6e | 67 20 46 0a 43 6f 6e 74 |urScalin|g F.Cont|
|00000310| 6f 75 72 4e 6f 69 73 79 | 20 54 0a 43 6f 6e 74 6f |ourNoisy| T.Conto|
|00000320| 75 72 43 6c 69 70 70 69 | 6e 67 20 46 0a 42 6f 78 |urClippi|ng F.Box|
|00000330| 48 65 69 67 68 74 20 30 | 0a 42 6f 78 4d 61 67 6e |Height 0|.BoxMagn|
|00000340| 69 66 69 63 61 74 69 6f | 6e 20 30 0a 58 76 69 65 |ificatio|n 0.Xvie|
|00000350| 77 70 6f 69 6e 74 20 30 | 0a 5a 76 69 65 77 70 6f |wpoint 0|.Zviewpo|
|00000360| 69 6e 74 20 30 0a 50 65 | 72 73 70 65 63 74 69 76 |int 0.Pe|rspectiv|
|00000370| 65 53 61 6d 70 6c 65 44 | 65 6c 74 61 20 30 0a 50 |eSampleD|elta 0.P|
|00000380| 65 72 73 70 65 63 74 69 | 76 65 20 54 0a 48 69 64 |erspecti|ve T.Hid|
|00000390| 64 65 6e 5f 4c 69 6e 65 | 73 20 54 0a 43 6c 69 70 |den_Line|s T.Clip|
|000003a0| 54 6f 42 6f 78 20 54 0a | 44 72 61 77 42 6f 78 20 |ToBox T.|DrawBox |
|000003b0| 54 0a 43 6f 6c 6f 72 54 | 6f 70 20 54 0a 43 6f 6c |T.ColorT|op T.Col|
|000003c0| 6f 72 42 6f 74 74 6f 6d | 20 46 0a 53 69 6d 70 6c |orBottom| F.Simpl|
|000003d0| 65 53 61 6d 70 6c 65 44 | 65 6c 74 61 20 30 0a 53 |eSampleD|elta 0.S|
|000003e0| 69 6d 70 6c 65 4e 6f 69 | 73 79 20 54 0a 53 69 6d |impleNoi|sy T.Sim|
|000003f0| 70 6c 65 47 72 61 64 69 | 65 6e 74 31 20 46 0a 53 |pleGradi|ent1 F.S|
|00000400| 69 6d 70 6c 65 47 72 61 | 64 69 65 6e 74 32 20 46 |impleGra|dient2 F|
|00000410| 0a 53 69 6d 70 6c 65 50 | 65 6e 20 32 0a 50 6c 6f |.SimpleP|en 2.Plo|
|00000420| 74 4d 6f 64 65 20 43 6f | 6e 74 6f 75 72 0a       |tMode Co|ntour.  |
+--------+-------------------------+-------------------------+--------+--------+